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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


| pbotrect: 


This module contains a List of internal dcl routine names 
and a routine to lookup the routine name and return the 

internal case index for that routine. 
in order to use the ‘INTIMAGES’ macro. 


v03-002 


v03-001 


v002 


v001 


1980, 1982, 1984 


BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS fo ‘kere $ euler UNDER A LICENSE AND MAY BE USED AND sonics 
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cE. SOF TWARE A : R 
PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
THE SOFTWARE IS HEREBY 


3— ge IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 


NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


It is coded in MACRO 


Tim Halvorsen, Sept 1980 
MODIFIED BY: 
v03-003 PcAoooe 


Paul C. Anagnostopoulos 22-Mar-1983 
his module will hopefully become obsolete before V4 ships. 
Hot will then be removed. 


CWwHOO02 CW Hobbs 5-Aug-1982 
Add correct number of dummy parameters for previous fix. 


CwHO001 CW Hobbs 3-Aug-1982 

Add dummy parameters wren SDEFINI and Rd are 
redefined to null. A change in the MA 2 essenblor 
produced error messages when a macro defined with 

no formal param ors is called with actuals. 


wT001 David W. Thiel 7-Jan-1982 
Use MCRINTIMG for MCR routine names and addresses. 


DWT0005 David W. Thiel 09-Dec-1981 
Support separate tables for MCR and DCL. 
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vou Definitions 2rSEp-1986 93:09:39 LODUSRCTROUTINGS AR: 1 we 3) | 
i .sbttl Definitions | 
0 6 ; Define data structures 
0 63 ; 
0 64 
8 65 $$clLitabdef 
8 8 
00 6 
8 «sbttl Internal routine table 
0 : Define internal image name 
$00 if : . 
a8 — 
** ntimage image,? 
0000 7% ‘Save we kh 
0000 75 sect S$plit$,nowrt ,noexe,word 
0000 76 Li: eascic /image 
0000 7 srestore 
0000 = 78 — U1 ; address of keyword string 
0000 79 ong Sintimages 3 associated va 
0000 80 Sint imageds Sint image$+1 
0000 1 endm intimage 
0000 ¢ 
0000 : — 
000 4 ; Generate internal routine table 
000 53 
0000 6 
00000000 87 -psect S$code$,nowrt,exe,word 
0000 88 
0000 89 ; senabl lsb 
0000 = 90 delinttbl: Pe das. 
0000006C* 0000 91 long <90$-10$>/4 ; number of entries in table 
0004 3 10$: int images 3 generate table entries (8 bytes each) 
01B4 93 90$: 
01B4 94 -dsabl (sb 
01B4 95 
01B4 96 enabl (sb 
0184 97 merinttbl: 
00000035C* 0184 98 -long  <90$-10$>/4 : number of entries in table 
8 99 10$: merintimg 3; generate table entries (8° bytes each) 
A 100 90$: 
02A 101 -dsabl (sb 
A 19 
A 105 inttbls: 
00000000° O2A 104 -address 0 
AC 105 assume vec_k =Geh et ~inttbls>/4> 
00000000" O2AC 106 -address oCL table pointer 
BO 107 assume vec_k_mcr,equal, <e. ~inttbls>/ 
00000184" 4 198 -address merinttbl Otek table pointer 


; 
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00000000 
00000003 


04 
00000000" 


00000284" 


0 
00000284" 8 


B4 
B4 
B4 


eclverbtyore: 
C 
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esbttl Verb type code table 


Define verb type code table 


macro S$defini dum1,dum2,dum3 Redefine SDEFINI macro to null 


-endm 

* $defend dum1,dum2,dum3 : Redefine SDEFEND macro to null 
-endm 

emacro $equ symbol,value 

S$ = Zlocate(<VERB_>,symbol)+5 ; locate name portion of symbol 


l= ee Oe des 

-iif gt “4, 1. = 3 Ll = max(l,4) 
ascii /extract(s,l,symbol)/ ; store first 4 chars of verb 
eblkb = 4-1 3 pad to longword 
-long value i associated verb type code 


-endm $equ 


verbtypes: 


Liverbdef : generate table entries (8 bytes each) 
-long 0 : end of table 
emdelete Sequ,$defini,$defend 
address 0 
assume vec_k_dcl,equal,<<.-verbtypes>/4> f 
address dclverbtypes ; DCL table pointer 
assume vec_k_mcr,equal,<<.-verbtypes>/4> ; 
address dclverbtypes 3; ** temp MCR table pointer 
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v04 LOOKUP_ROUTINE, lookup routine name 4-SEP-1984 09:3 CDU.SRCJROUTINES.MAR; 1 
rev \é -Sbttl LOOKUP_ROUTINE, Lookup routine name 
4AG 144; 
4AQ4 145; Lookup a routine name in the table of internal DCL routines 
re 146 3 and return the associated internal case index. 
4A4 108 3; Inputs: 
4A4 149 ; 
rey 129 $ 4(ap) = Address of descriptor of routine name 
4A4 13 3; Outputs: 
4A4 153; 
4A4 154; r0 = Case index if found, else 0 
4A4 155 ;<<- 
4A4 156 
0000 mv) 3 sentry lookup_routine,0 
7E =oOOF Deg 159 pushal (sp) ; Address of longword to receive value 
50 OO00'CF 9A 6448 160 movzbl w*clitype,r0 3; Index in table of tables 
FDF6 CF40 DD Q4AD 161 pushl inttbistr6) ; Address of keyword table * 
04 ag DD *8 8 pushl 4(ap) ; Address of search string descriptor 
00000000'GF 0 FB 048 16 calls Oh +§.} toStookup_hey ; Lookup routine name in table 
0450 €9 Q4BC 164 blbc r0,50$ 3; Branch if not found 
50 8EDO O4BF 165 popl r0 ; Return value in RO 
04 pate 166 ret y 
50 D4 O4C 167 80$: clrl r0 ; Return failure 
04 04€5 168 ret 


—————— 
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PE, lookup verb type code 4-SEP-1984 33:09:48 EDU SRCIROUTINES MAR: 1 - (3) 
1 
1 


«sbttl LOOKUP_VERB_TYPE, lookup verb type code 


Lookup a verb in the table of verb type codes 
defined by the macro SCLIVERBDEF and return 
ated verb type code. 


the assoc 
Inputs: 

4(ap) = Address of descriptor of verb name 
Outputs: 


r0 = Verb type code if found, else 0 


4 
8 
9 
0 
3 
§ sentry lookup_verb_type,“m<r2,r3,r4,r5,r6,r7,r8> 
8 
9 
0 
4 
5 
6 
7 
8 
1 


Oo 

> 
SOSOSSSOOSOSOSOOOCOSOSOOSOOOOOOOSOOOOOOSOOOOOOOO 
| al telltale ek tak Dad a et ek ak ee ade ee ke dl dale ae ak ae ee ae ae ae ot at et et ee et ee et 
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O1FC 
50 0000'CF movzbl w*clitype,r0 : Index in table of tables 
58 C7 AF4O 00 movl verbtypestr0J.r8 ; Address of keyword table 
56 04 80 7D mova a4(ap),r6 3: Get descriptor of verb name 
56 56 3C movzwl ré6,r : Expand Length to longword 
06 56 O01 cmpl r6 : More than 4& characters? 
03 15 bleq 108 : Branch if not | 
56 04 00 movl #4,76 : Only compare first 4 characters 
68 D5 10$: tstl = (r8) : End of table? _ , 
10 «13 beql 80$ ; If so, return with failure 
68 67 56 29 cmpc3) = r 6, (r' 7), (rr 8) : Is verb Listed in table? 
05 13 9 be 90 : Branch if so 
58 08 CO 99 addl #8,°8 : Skip to next entry — 
Fai 00 brb 108 : and continue searching 
50 04 A8 4 3 90$: sovl 4(r8),r0 ; Return with assoc. verb type code 
re 
50 D4 $8 80$: clrl r0 ; Return failure 
04 04 ret 
05 
06 .end 
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Symbol table * 2r8Ep-19B6 93:09,39 Feu eR TAOUTINeS aR: 1 age 8, 
SINT IMAGES = 0000009E 
CLITYPE ettrreee 
DCLINTTBL $8008 00 R 
DCLVERBTYPES 000284 R 
INTTBLS $88 ABR 0 
L = 00000004 
LIBSLOOKUP_KEY eereeeee =X 0 
LOOKUP _ROUTINE 944 pa RG 0 
LOOKUP~VERB_TYPE 000046 RG = 0 
MCRINTTBL 00000184 R 0 
8 = 00000008 
VEC_K_DCL = 8688 

K-MCR = 00000002 
VERBTYPES 00000498 R 02 

foewwmmarocwresecan ce + 
: Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
: . 00000000 ¢ 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 ¢ 0.) 01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SCODES 000004F8 ( 1272.) 02 < g-) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC WORD 
SPLITS O000026E ( 622.) 03 ¢ 3.) NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC WORD 
Soe OO Be MOON wee eo mo Boe * 
! Performance indicators : 

Phase Page faults CPU Time Elapsed Time 
Initialization 32 00:00:00.13 00:00:00.96 
Command processing 121 00:00:00.80 00:00:04.93 
Pass 208 88? 8308-80 00:00:15.10 
Symbol table sort 0 00:00:00.36 00:00:00.59 
Pass 2 59 00:00:01.31 00:00:03.49 
Symbol table output 4 00:00:00.03 00:00:00.08 
Psect synopsis output 1 00:00:00.02 00:00:00.02. 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 427 00:00:08.72 00:00:25.19 


The working set Limit was 1350 pages. r 

32222 bytes _ (63 pages) of virtual memory were used to buffer she intermediate code. 

There were 20 pages of symbol table space allocated to hold 185 non-local and 92 local symbols. 
206 source lines were read in Pass 1, producing 30 object records in Pass 

15 pages of virtual memory were used to define 9 macros. 
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ROUTINES Lookup DCL internal routine names 
VAKX=-11 Macro Run Statistics 
— enw e wen eee tem ee merece eet 
: Macro Library statistics H 
Macro Library name Macros defined 
SDUA &:f3 om is MCR.MLB;1 2 
—* BIJDCL.MLB;1 1 
reverie 


STARLET .MLB;2 ; 
+B25580 vact “Libraries) 


394 GETS were required to define 8 macros. 
There were no errors, warnings or information messages. 
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MACRO/LIS=L1S$:ROUTINES/OBJ=OBJ$:ROUTINES MSRC$:ROUTINES/UPDATE=(ENH$: ROUTINES) +SHRLIB$:DCL/LIB+SHRLIBS$:MCR/LIB 
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